dim app,doc,v
set app=application
set doc=app.activedocument
set v = doc.ActiveView
main
msgbox "done"
sub main
	if usr_dx =0 then usr_dx = 40
	doc.Unit = 2'mil
	dim cmps,cmp
	set cmps = doc.getobjects(1,,true)
	dim i
	i=0
	dim y_center
	for each cmp in cmps
		'msgbox cmp.name
		if i=0 then 
			y_center = cmp.positionY
			i = i+1
		else
			'msgbox cmp.positionX & "," & y_center
			cmp.move(cmp.positionX,y_center)	
		end if		
	next	
	v.SetExtentsToSelection 
end sub
